home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / PlotCMD.lha / plotcmd / preset_cosine.omed < prev    next >
Text File  |  1999-02-16  |  964b  |  51 lines
  1. /*
  2.     ARexx script for use with PlotCMD
  3.     (PlotCMD is a MUIRexx script for use with OctaMED Soundstudio)
  4.     Read the PlotCMD doc for details
  5. */
  6.  
  7. ADDRESS OCTAMED_REXX
  8. OPTIONS RESULTS
  9.  
  10. CALL openlibs()
  11.  
  12. pi=4*ATan(1)                /* Define Pi */
  13.  
  14. ED_GETNUMLINES VAR len
  15. IN_SELECT LAST
  16. IN_SETTYPE SAMPLE
  17. SA_CHANGESIZE SIZE len CLEAR
  18.  
  19. DO i=0 TO len-1
  20.    calcval=32767*COS(i/(len-1)*2*pi)    /* calculate COSINE values */
  21.    calcval=TRUNC(calcval, 0)        /* remove decimals */
  22.    SA_SETSAMPLE OFFSET i VALUE calcval    /* edit sample */
  23. END
  24.  
  25. SA_REFRESH
  26.  
  27. CALL theend()
  28.  
  29.  
  30.  
  31.  
  32.  
  33. /*              P R O C E D U R E S
  34. -----------------------------------------------------*/
  35.  
  36. openlibs: PROCEDURE
  37.    IF ~SHOW(L, 'rexxMOOS.library') THEN DO
  38.       IF ~ADDLIB('rexxMOOS.library', 100, -30) THEN DO
  39.          SAY "Can't find rexxMOOS.library"
  40.          CALL theend()
  41.       END
  42.    END
  43. RETURN
  44.  
  45. theend: PROCEDURE
  46.    IF SHOW(L, 'rexxMOOS.library') THEN DO
  47.       CALL REMLIB('rexxMOOS.library')
  48.    END
  49.    EXIT
  50. RETURN
  51.